home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 137
/
137.d81
/
b.colors 240
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
66 lines
2 :
3 :rem lower top of basic/protect font
4 :
5 poke56,56:clr
7 :
8 :rem set background and border colors
9 :
10 poke53281,0:poke53280,0
17 :
18 :rem set dv to current drive number
19 :
20 dv=peek(186):ifdv<8thendv=8
27 :
28 :rem clear screen and lock lowercase
29 :
30 print"[154][147]"
37 :
38 :rem bload font at $3800
39 :
40 sys57812"dot font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
47 :
48 :rem switch to custom font
49 :
50 poke53272,31
97 :
98 :rem define box as bx$
99 :
100 bx$=" [157][157][157][157] [157][157][157][157] [157][157][157][157] [157][157][157][157] "
107 :
108 :rem draw grid
109 :
110 fori=0to3
112 forj=0to7
114 poke646,j+8*(iand1) :rem set color
116 poke214,i*5:print :rem set row
118 ifi<2thenpoke199,1 :rem rvs 1st 16
120 printtab(j*4+4)bx$ :rem print box
122 next
124 next
207 :
208 :rem cycle background colors
209 :
240 print"[154] [208]ress [211][208][193][195][197] to cycle through the 16
250 [153]" background colors. (NULL)ress (NULL) to quit.
270 geta$:ifa$=""then270
272 ifa$="q"then40000
280 c=(c+1)and15:poke53281,c
290 goto270
300 :
310 :rem scratch and save
320 :
10000 d=peek(186):n$="b.colors 240":open15,d,15,"s0:"+n$:close15:saven$,d:end
39000 :
39010 :rem return to ls
39020 :
40000 fori=0to21:poke828+i,8+i:next
40010 ifdv<8ordv>29ordv=8then40030
40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:print"[147]":poke53272,23:poke186,8:end
40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end